home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / amitalk / cnet.talkrequest.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-07  |  792b  |  28 lines
  1. /* This Script will send an OLM to the user (If he is online) telling them */
  2. /* of the talk request. You Must have the OLM program in your path  */
  3. /* By Brian Gunn and MustangVR 03/01/95 */
  4.  
  5. options results
  6. parse arg caller callee
  7. message="You have been requested for an Internet-Talk from the Internet user  "||caller||" (type Talk "||caller||") To enter Chat mode!"
  8.  
  9. gs=getscratch;gu=getuser
  10. ADDRESS CNETREXX0
  11. gu 2225094;high=result
  12. say 'high: ' || high
  13. do i=0 to high
  14.         getportid i
  15.         id=result
  16.  
  17.         if id>-1 then do
  18.                 loadscratch id
  19.                 savescratch (-id)
  20.                 gs 1300546
  21.                 uucp=result
  22.                 if uucp=callee then do
  23.                         address COMMAND 'olm 'i message
  24.                 end;
  25.         end;
  26.  
  27. end;
  28.